home *** CD-ROM | disk | FTP | other *** search
/ c't freeware shareware 1997 / CT_SW_97.ISO / pc / software / entwickl / macos / ingwdef.hqx / IngisWDEF 1.2 ƒ / CustomStubs.p (empty) next >
Text File  |  1995-08-17  |  6KB  |  128 lines
  1. {Empty stubs. Fill in the parts you need for your window.}
  2. {This unit holds all custom code}
  3.  
  4. unit CustomStubs;
  5.  
  6. interface
  7.     uses
  8. {$IFC UNDEFINED THINK_PASCAL}
  9.         Types, QuickDraw, ToolUtils, Windows, 
  10. {$ENDC}
  11.         IngisWDEFUtils;
  12.  
  13. {Lots of routines, right? Don't worry; you can skip several of them if you don't plan on supporting zoom box,}
  14. {close box or grow regions, and you can call some default routines in IngisWDEFUtils.}
  15.  
  16.     procedure GetGrowRgn (varCode: integer; macWindow: WindowPeek; var growRgn: RgnHandle);
  17.     procedure GetCloseBox (varCode: integer; dragBar: RgnHandle; var closeBox: Rect);
  18.     procedure GetZoomBox (varCode: integer; dragBar: RgnHandle; var zoomBox: Rect);
  19.     procedure DrawCloseBox (varCode: integer; macWindow: WindowPeek; closeBox: Rect; colorFlag: Boolean);
  20.     procedure DrawZoomBox (varCode: integer; macWindow: WindowPeek; zoomBox: Rect; colorFlag: Boolean);
  21.     procedure DrawHitCloseBox (varCode: integer; macWindow: WindowPeek; closeBox: Rect; colorFlag: Boolean);
  22.     procedure DrawHitZoomBox (varCode: integer; macWindow: WindowPeek; zoomBox: Rect; colorFlag: Boolean);
  23.     procedure DrawDragBar (varCode: integer; macWindow: WindowPeek; dragBar: RgnHandle; colorFlag: Boolean);
  24.     procedure BuildCustomRegions (varCode: integer; theRect: Rect; contRgn, dragRgn: RgnHandle);
  25.     procedure DrawScrollFrame (varCode: integer; macWindow: WindowPeek; theRect: Rect);
  26.     procedure DrawTheGrowIcon (varCode: integer; macWindow: WindowPeek; theRect: Rect; growRgn: RgnHandle; colorFlag: Boolean);
  27.     procedure InitMyWindow (varCode: integer; macWindow: WindowPeek);
  28.     procedure DisposeMyWindow (varCode: integer; macWindow: WindowPeek);
  29.  
  30. {** Constants **}
  31.     const
  32.         kFrameWidth = 1;        { Thickness of frame around window. 1 is normal.}
  33.         kShadowLength = 1;        { Size of drop shadow. 1 is normal.}
  34.         kMinDepthForColor = 4;    { Smallest pixel size for color. 8 (256 colors) is normal. }
  35.         kMinWidth = 100;        { Limits for the dragging rectangle? }
  36.         kMinHeight = 100;
  37.  
  38. implementation
  39.  
  40. {*****************************************************************************}
  41. { GetGrowRgn}
  42. {        Return the region with the grow icon, if any.}
  43. { *****************************************************************************}
  44.  
  45.     procedure GetGrowRgn (varCode: integer; macWindow: WindowPeek; var growRgn: RgnHandle);
  46.     begin
  47.     end;
  48.  
  49. {*****************************************************************************}
  50. { GetCloseBox}
  51. {        Pass back a rectangle which encloses the close box of the window}
  52. { *****************************************************************************}
  53.  
  54.     procedure GetCloseBox (varCode: integer; dragBar: RgnHandle; var closeBox: Rect);
  55.     begin
  56.     end;
  57.  
  58.     procedure GetZoomBox (varCode: integer; dragBar: RgnHandle; var zoomBox: Rect);
  59.     begin
  60.     end;
  61.  
  62. {*****************************************************************************}
  63. { Draw close box and zoom box, in normal and hit state }
  64. {        Draw the close box in "hit" state. This can be as simple as an InvertRect. }
  65. { *****************************************************************************}
  66.  
  67.     procedure DrawCloseBox (varCode: integer; macWindow: WindowPeek; closeBox: Rect; colorFlag: Boolean);
  68.     begin
  69.     end; {}
  70.     procedure DrawZoomBox (varCode: integer; macWindow: WindowPeek; zoomBox: Rect; colorFlag: Boolean);
  71.     begin
  72.     end; {}
  73.     procedure DrawHitCloseBox (varCode: integer; macWindow: WindowPeek; closeBox: Rect; colorFlag: Boolean);
  74.     begin
  75.     end; {}
  76.     procedure DrawHitZoomBox (varCode: integer; macWindow: WindowPeek; zoomBox: Rect; colorFlag: Boolean);
  77.     begin
  78.     end; {}
  79.  
  80. {*****************************************************************************}
  81. { DrawDragBar, BW and Color version}
  82. {        Draw the drag bar (not close box/zoom box)}
  83. { *****************************************************************************}
  84.  
  85.     procedure DrawDragBar (varCode: integer; macWindow: WindowPeek; dragBar: RgnHandle; colorFlag: Boolean);
  86.     begin
  87.     end; {DrawDragBar}
  88.  
  89. {*****************************************************************************}
  90. { BuildCustomRegions}
  91. {        Build the contents region and the drag bar region}
  92. { *****************************************************************************}
  93.  
  94.     procedure BuildCustomRegions (varCode: integer; theRect: Rect; contRgn, dragRgn: RgnHandle);
  95.     begin
  96.     end; {BuildCustomRegions}
  97.  
  98. {*****************************************************************************}
  99. { DrawScrollFrame}
  100. {        Draw the scroll frame, if any (used both when resizing and when drawing the grow icon) }
  101. { *****************************************************************************}
  102.  
  103.     procedure DrawScrollFrame (varCode: integer; macWindow: WindowPeek; theRect: Rect);
  104.     begin
  105.     end; {DrawScrollFrame}
  106.  
  107. {*****************************************************************************}
  108. { DrawTheGrowIcon, BW and Color version}
  109. {        Draw the grow icon, if any }
  110. { *****************************************************************************}
  111.  
  112.     procedure DrawTheGrowIcon (varCode: integer; macWindow: WindowPeek; theRect: Rect; growRgn: RgnHandle; colorFlag: Boolean);
  113.     begin
  114.     end; {DrawTheGrowIcon}
  115.  
  116. {*****************************************************************************}
  117. { InitMyWindow and DisposeMyWindow }
  118. {        Can often be empty. Set the spareFlag in InitMyWindow if the variant should have a zoom box. }
  119. { *****************************************************************************}
  120.  
  121.     procedure InitMyWindow (varCode: integer; macWindow: WindowPeek);
  122.     begin
  123.     end; {}
  124.     procedure DisposeMyWindow (varCode: integer; macWindow: WindowPeek);
  125.     begin
  126.     end; {}
  127.  
  128. end.